Internet Store and Ecommerce Solution Provider - BizHosting.com
Choose an ISP: NetZero High Speed Internet Dial up $14.95 or NetZero Internet Service $9.95

[ Home ] [ Up ] [ Next ]

Ctrl + Alt + Del ايقاف عمل المفاتيح 

في قسم التصاريح ضع التالي

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

اكتب الاجراء التالي

Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

لايقاف عمل المفاتيح ادخل التالي في حدث تحميل الفورم

Private Sub Form_Load()
Call closealt
End Sub

 لاعادة عملها ادخل التالي في اي كمكان تريد 

Call DisableCtrlAltDelete(False)